home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2000 August / augusty_2000.iso / Site Building / 2Bitmap / data1.cab / Shared_Dll / IAPSHOP5.PS < prev    next >
Encoding:
Text File  |  2000-05-22  |  1.9 KB  |  89 lines
  1. level2 {
  2. band 0 eq {/DeviceCMYK} {/DeviceGray} ifelse
  3. setcolorspace} if
  4. /readdata {currentfile exch readhexstring pop} def
  5. /image2 level2 {/image load def} {{begin
  6. Width Height BitsPerComponent ImageMatrix
  7. Decode length 2 eq
  8. {/DataSource load image} if
  9. Decode length 6 eq
  10. {DataSource 0 get DataSource 1 get DataSource 2 get
  11. true 3 colorimage} if
  12. Decode length 8 eq
  13. {DataSource 0 get DataSource 1 get
  14. DataSource 2 get DataSource 3 get
  15. true 4 colorimage} if
  16. end} def} ifelse
  17. /_image2 level2 {/_image load def} {{begin
  18. Width Height BitsPerComponent ImageMatrix
  19. /DataSource load _image end} def} ifelse
  20. /beginimage {
  21. band 0 eq band 5 eq or
  22. {image2} if
  23. band 1 ge band 4 le and
  24. {{1 exch sub dummy exec} dup 3 _currenttransfer put
  25. _settransfer _image2} if
  26. band 6 eq
  27. {negative {{pop 0}} {{pop 1}} ifelse
  28. _settransfer _image2} if
  29. } def
  30. 12 dict begin
  31. /ImageType 1 def
  32. /Width cols def
  33. /Height rows def
  34. /ImageMatrix [cols 0 0 rows neg 0 rows] def
  35. /BitsPerComponent 8 def
  36. band 0 eq
  37. {/Decode [0 1 0 1 0 1 0 1] def}
  38. {/Decode [0 1] def} ifelse
  39. band 0 eq {
  40. /MultipleDataSources true def
  41. /DataSource [
  42. {picstr1 readdata}
  43. {picstr2 readdata}
  44. {picstr3 readdata}
  45. {picstr4 readdata picstr5 readdata pop}
  46. ] def} if
  47. band 1 eq {
  48. /DataSource {
  49. picstr1 readdata
  50. picstr2 readdata pop
  51. picstr3 readdata pop
  52. picstr4 readdata pop
  53. picstr5 readdata pop
  54. } def} if
  55. band 2 eq {
  56. /DataSource {
  57. picstr1 readdata pop
  58. picstr2 readdata
  59. picstr3 readdata pop
  60. picstr4 readdata pop
  61. picstr5 readdata pop
  62. } def} if
  63. band 3 eq {
  64. /DataSource {
  65. picstr1 readdata pop
  66. picstr2 readdata pop
  67. picstr3 readdata
  68. picstr4 readdata pop
  69. picstr5 readdata pop
  70. } def} if
  71. band 4 eq {
  72. /DataSource {
  73. picstr1 readdata pop
  74. picstr2 readdata pop
  75. picstr3 readdata pop
  76. picstr4 readdata
  77. picstr5 readdata pop
  78. } def} if
  79. band 5 ge {
  80. /DataSource {
  81. picstr1 readdata pop
  82. picstr2 readdata pop
  83. picstr3 readdata pop
  84. picstr4 readdata pop
  85. picstr5 readdata
  86. } def} if
  87. currentdict end
  88. beginimage
  89.